home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Super Collection / Windows 95 Super Collection.iso / win95 / programm / perl32b3 / lmhosts.pl < prev    next >
Encoding:
Text File  |  1995-06-21  |  1.4 KB  |  41 lines
  1. require 'hives.pl';
  2.  
  3. print &setupMSTCP;
  4.  
  5. sub setupMSTCP
  6. {
  7.        local( $tcpKey );
  8.  
  9.        $tcpKey= 'System\CurrentControlSet\Services\VxD\MSTCP';
  10.  
  11.        &cKeyLM( $tcpKey ) || return 0;
  12.  
  13.        &setLM( $tcpKey,'nodeType',$REG_SZ,'0' ) || return 0;
  14.  
  15.        &setLM( $tcpKey,'EnableDNS',$REG_SZ,'0' ) || return 0;
  16.  
  17.        &setLM( $tcpKey,'LMHostFile',$REG_SZ,'C:\HOSTS' ) || return 0;
  18.  
  19.        &cKeyLM( $tcpWinsock= $tcpKey . '\Parameters\Winsock' ) || return 0;
  20.  
  21.        &setLM( $tcpWinsock,'HelperDllName',$REG_SZ,'%windir%\system\wsock32.dll' ) || return 0;
  22.        &setLM( $tcpWinsock,'MaxSockAddrLength',$REG_BINARY,pack( "L",0x00000010 ) ) || return 0;
  23.        &setLM( $tcpWinsock,'MinSockAddrLength',$REG_BINARY,pack( "L",0x00000010 ) ) || return 0;
  24.  
  25.        &cKeyLM( $tcpProvider= $tcpKey . '\ServiceProvider' ) || return 0;
  26.  
  27.        &setLM( $tcpProvider,'LocalPriority',$REG_BINARY,pack( "L",0x000001f3 ) ) || return 0;
  28.        &setLM( $tcpProvider,'HostsPriority',$REG_BINARY,pack( "L",0x000001f4 ) ) || return 0;
  29.        &setLM( $tcpProvider,'DnsPriority',  $REG_BINARY,pack( "L",0x000007d0 ) ) || return 0;
  30.        &setLM( $tcpProvider,'NetBtPriority',$REG_BINARY,pack( "L",0x000001f5 ) ) || return 0;
  31.  
  32.        &setLM( $tcpProvider,'Class',$REG_BINARY,pack( "L",0x00000008 ) ) || return 0;
  33.  
  34.        &setLM( $tcpProvider,'ProviderPath',$REG_SZ,'%windir%\system\wsock32.dll' );
  35. }
  36.  
  37.  
  38.  
  39.  
  40.  
  41.